home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
misc
/
hsmathlibs
/
hd-installer_script
< prev
next >
Wrap
Text File
|
1999-04-19
|
6KB
|
193 lines
;****************************************************************
;* HighSpeed MathLibs Installer Version 1.3r 30.Januar 1999 *
;* *
;* Copyright © 1998/99 by CyberdyneSystems *
;* written by Matthias Henze *
;* english translation written by Thomas Blätte *
;* italian translation written by Massimo Gais *
;* catalan translation written by Llorenç Grau *
;* *
;****************************************************************
;
; $VER: HD-Installer_script 1.3r (30.01.99)
(set HSMathLibs-Version "44.40")
(set HSMathLibs-Datum "31.März 1999")
(set HSMathLibs-Datum_e "31 March 1999")
(set HSMathLibs-Datum_i "31 March 1999")
(set HSMathLibs-Datum_c "31 March 1999")
;====================================================================
; Initialisierungen
;====================================================================
(set @default-dest "")
(if (= @language "deutsch")
(
(set #welcome (cat
"\nWillkommen bei der Installation der \n"
"D E M O V E R S I O N\n"
"der\n"
"\"HighSpeed MathLibs\"\n\n"
"Version "HSMathLibs-Version" vom "HSMathLibs-Datum"\n\n"
"Dieses Skript installiert die \"HighSpeed MathLibs\",\n"
"entsprechend Ihrer Angaben, auf Ihre Festplatte.\n\n\n"
"Kopierrecht © 1998/99 bei CyberdyneSystems\n"
"geschrieben von Matthias Henze"))
(set #Anleitungen_Auswahl (cat
"\nWählen Sie die Sprache für die AmigaGuide Dokumentation aus.\n"))
(set #Anleitungen_Liste (cat
"Installation der Anleitung.\n"
"Bitte wählen Sie ein Laufwerk oder ein Verzeichnis.\n"
"Es wird kein Verzeichnis erzeugt."))
)
)
(if (= @language "italiano")
(
(set #welcome (cat
"\nBenvenuti alla installazione della\n"
"D E M O V E R S I O N\n"
"di\n"
"\"HighSpeed MathLibs\"\n\n"
"versione "HSMathLibs-Version" del "HSMathLibs-Datum_i"\n\n"
"Questo script installa le \"HighSpeed MathLibs\"\n"
"secondo le tue indicazioni sul tuo harddisk.\n\n\n"
"Copyright © 1998/99 by CyberdyneSystems\n"
"scritto da Matthias Henze"))
(set #Anleitungen_Auswahl (cat
"\nScegli la lingua per la documentazione AmigaGuide.\n"))
(set #Anleitungen_Liste (cat
"Installazione del manuale.\n"
"Scegli un volume o una directory.\n"
"Una nuova directory non sarà creata."))
)
)
(if (= @language "english")
(
(set #welcome (cat
"\nWelcome to the installation of the\n"
"D E M O V E R S I O N\n"
"of\n"
"\"HighSpeed MathLibs\"\n\n"
"version "HSMathLibs-Version" from "HSMathLibs-Datum_e"\n\n"
"This script installs the \"HighSpeed MathLibs\"\n"
"according to your specification to your harddisk.\n\n\n"
"Copyright © 1998/99 by CyberdyneSystems\n"
"written by Matthias Henze"))
(set #Anleitungen_Auswahl (cat
"\nPlease choose the language for the AmigaGuide documentation.\n"))
(set #Anleitungen_Liste (cat
"Installation of the manual.\n"
"Please choose a volume or a directory.\n"
"A new directory will not be created."))
)
)
(if (= @language "català")
(
(set #welcome (cat
"\nBenvingut a la instal.lació de\n"
"D E M O V E R S I O N\n"
"de\n"
"\"HighSpeed MathLibs\"\n\n"
"versió "HSMathLibs-version" del "HSMathLibs-Datum_c"\n\n"
"Aquest guió instal.la \"HighSpeed MathLibs\"\n"
"segons les teves especificacions dins el teu HD.\n\n\n"
"Copyright © 1998/99 by CyberdyneSystems\n"
"escrit per Matthias Henze"))
(set #Anleitungen_Auswahl (cat
"\nSi us plau, tria el llenguatge per la documentació AmigaGuide.\n"))
(set #Anleitungen_Liste (cat
"Instal.lació del manual.\n"
"Si us plau, tria un volum o directori.\n"
"No es crearà cap nou directori."))
)
)
;=====================================================================================
; Beginn der Installation
;=====================================================================================
(message #welcome)
(welcome)
(set Math_ver (getversion "libs:mathieeedoubbas.library"))
(if (< Math_ver (* 44 65536))
(
(rename "libs:mathieeedoubbas.library" "libs:mathieeedoubbas.library.bak")
)
)
(set Math_ver (getversion "libs:mathieeedoubtrans.library"))
(if (< Math_ver (* 44 65536))
(
(rename "libs:mathieeedoubtrans.library" "libs:mathieeedoubtrans.library.bak")
)
)
(set Math_ver (getversion "libs:mathieeesingtrans.library"))
(if (< Math_ver (* 44 65536))
(
(rename "libs:mathieeesingtrans.library" "libs:mathieeesingtrans.library.bak")
)
)
(set Math_ver (getversion "libs:mathtrans.library"))
(if (< Math_ver (* 44 65536))
(
(rename "libs:mathtrans.library" "libs:mathtrans.library.bak")
)
)
(copyfiles
(source "libs")
(dest "libs:")
(all)
)
(
(set kopiere_Anleitungen
(askchoice
(prompt #Anleitungen_Auswahl)
(help @askchoice-help)
(if (= @language "deutsch") ((default 0)))
(if (= @language "english") ((default 1)))
(if (= @language "italiano") ((default 2)))
(if (= @language "català") ((default 3)))
(choices
"Deutsch"
"English"
"Italiano"
"Catalan"
)
)
)
(if (= kopiere_Anleitungen 0) (set Quelle-D "HSMathLibs.guide"))
(if (= kopiere_Anleitungen 1) (set Quelle-D "HSMathLibs_eng.guide"))
(if (= kopiere_Anleitungen 2) (set Quelle-D "HSMathLibs_ita.guide"))
(if (= kopiere_Anleitungen 3) (set Quelle-D "HSMathLibs_cat.guide"))
(
(set Dokverzeichnis
(askdir
(prompt #Anleitungen_Liste)
(help @askdir-help)
(default "")
(disk)
)
)
(makeassign "INSTDOK" Dokverzeichnis)
(copyfiles
(source Quelle-D)
(dest "INSTDOK:")
(infos)
)
)
)
(makeassign "INSTDOK")